/ BBS in a Box 15 / BBS in a box XV-2.iso / Files II / Publish / A / Alpha 5.96.sit / Tcl / SystemCode / help.tcl

< prev

next >

MacOS 8.1

Win98

DOS

browse contents

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 00 08 68 65 6c 70 2e 74 | 63 6c 00 00 00 00 00 00 |..help.t|cl......|
|00000010| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000020| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000030| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000040| 00 54 45 58 54 41 4c 46 | 41 01 00 00 00 00 00 00 |.TEXTALF|A.......|
|00000050| 00 00 00 00 00 04 f0 00 | 00 01 7e aa a0 e0 66 aa |........|..~...f.|
|00000060| a0 e0 66 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |..f.....|........|
|00000070| 00 00 00 00 00 00 00 00 | 00 00 81 81 ca 8e 00 00 |........|........|
|00000080| 0d 0d 0d 70 72 6f 63 20 | 70 72 6f 63 44 65 66 69 |...proc |procDefi|
|00000090| 6e 69 74 69 6f 6e 20 7b | 7d 20 7b 0d 09 67 6c 6f |nition {|} {..glo|
|000000a0| 62 61 6c 20 61 75 74 6f | 5f 69 6e 64 65 78 20 61 |bal auto|_index a|
|000000b0| 75 74 6f 5f 68 65 6c 70 | 20 0d 0d 09 77 61 74 63 |uto_help| ...watc|
|000000c0| 68 43 75 72 73 6f 72 0d | 09 73 65 74 20 77 69 6e |hCursor.|.set win|
|000000d0| 73 20 5b 6c 6c 65 6e 67 | 74 68 20 5b 77 69 6e 4e |s [lleng|th [winN|
|000000e0| 61 6d 65 73 5d 5d 0d 09 | 69 66 20 7b 21 24 77 69 |ames]]..|if {!$wi|
|000000f0| 6e 73 20 7c 7c 20 21 5b | 73 74 72 69 6e 67 20 6c |ns || ![|string l|
|00000100| 65 6e 67 74 68 20 5b 73 | 65 74 20 72 65 73 20 5b |ength [s|et res [|
|00000110| 67 65 74 53 65 6c 65 63 | 74 5d 5d 5d 7d 20 7b 0d |getSelec|t]]]} {.|
|00000120| 09 09 68 65 6c 70 44 75 | 6d 6d 79 0d 09 09 73 65 |..helpDu|mmy...se|
|00000130| 74 20 72 65 73 20 5b 6c | 69 73 74 70 69 63 6b 20 |t res [l|istpick |
|00000140| 2d 70 20 7b 50 72 6f 63 | 3f 7d 20 5b 73 65 74 20 |-p {Proc|?} [set |
|00000150| 70 72 6f 63 64 65 66 73 | 20 5b 6c 73 6f 72 74 20 |procdefs| [lsort |
|00000160| 2d 69 67 6e 6f 72 65 20 | 5b 63 6f 6e 63 61 74 20 |-ignore |[concat |
|00000170| 5b 61 72 72 61 79 20 6e | 61 6d 65 73 20 61 75 74 |[array n|ames aut|
|00000180| 6f 5f 69 6e 64 65 78 5d | 20 5b 61 72 72 61 79 20 |o_index]| [array |
|00000190| 6e 61 6d 65 73 20 61 75 | 74 6f 5f 68 65 6c 70 5d |names au|to_help]|
|000001a0| 5d 5d 5d 5d 0d 09 7d 0d | 09 69 66 20 7b 24 77 69 |]]]]..}.|.if {$wi|
|000001b0| 6e 73 7d 20 7b 73 65 6c | 65 63 74 20 5b 67 65 74 |ns} {sel|ect [get|
|000001c0| 50 6f 73 5d 7d 0d 09 69 | 66 20 7b 5b 73 74 72 69 |Pos]}..i|f {[stri|
|000001d0| 6e 67 20 6c 65 6e 67 74 | 68 20 24 72 65 73 5d 7d |ng lengt|h $res]}|
|000001e0| 20 7b 0d 09 09 69 66 20 | 7b 5b 63 61 74 63 68 20 | {...if |{[catch |
|000001f0| 7b 73 65 74 20 66 6e 61 | 6d 65 20 24 61 75 74 6f |{set fna|me $auto|
|00000200| 5f 69 6e 64 65 78 28 24 | 72 65 73 29 7d 5d 7d 20 |_index($|res)}]} |
|00000210| 7b 0d 09 09 09 68 65 6c | 70 44 75 6d 6d 79 0d 09 |{....hel|pDummy..|
|00000220| 09 09 69 66 20 7b 5b 63 | 61 74 63 68 20 7b 73 65 |..if {[c|atch {se|
|00000230| 74 20 72 65 73 20 24 61 | 75 74 6f 5f 68 65 6c 70 |t res $a|uto_help|
|00000240| 28 24 72 65 73 29 7d 5d | 7d 20 7b 0d 09 09 09 09 |($res)}]|} {.....|
|00000250| 6d 65 73 73 61 67 65 20 | 22 4e 6f 20 73 75 63 68 |message |"No such|
|00000260| 20 70 72 6f 63 2e 22 0d | 09 09 09 09 72 65 74 75 | proc.".|....retu|
|00000270| 72 6e 3b 0d 09 09 09 7d | 0d 09 09 09 72 65 67 65 |rn;....}|....rege|
|00000280| 78 70 20 7b 5b 5e 2f 5d | 2a 7d 20 24 72 65 73 20 |xp {[^/]|*} $res |
|00000290| 66 6e 61 6d 65 0d 09 09 | 09 72 65 67 65 78 70 20 |fname...|.regexp |
|000002a0| 7b 2f 28 2e 2a 29 7d 20 | 24 72 65 73 20 64 75 6d |{/(.*)} |$res dum|
|000002b0| 6d 79 20 70 6f 73 0d 09 | 09 7d 0d 09 09 69 66 20 |my pos..|.}...if |
|000002c0| 7b 5b 65 78 70 72 20 7b | 5b 6c 73 65 61 72 63 68 |{[expr {|[lsearch|
|000002d0| 20 5b 77 69 6e 4e 61 6d | 65 73 20 2d 66 5d 20 22 | [winNam|es -f] "|
|000002e0| 2a 24 66 6e 61 6d 65 22 | 5d 20 3e 3d 20 30 7d 5d |*$fname"|] >= 0}]|
|000002f0| 7d 20 7b 0d 09 09 09 62 | 72 69 6e 67 54 6f 46 72 |} {....b|ringToFr|
|00000300| 6f 6e 74 20 24 66 6e 61 | 6d 65 0d 09 09 7d 20 65 |ont $fna|me...} e|
|00000310| 6c 73 65 69 66 20 7b 5b | 66 69 6c 65 20 65 78 69 |lseif {[|file exi|
|00000320| 73 74 73 20 24 66 6e 61 | 6d 65 5d 7d 20 7b 0d 09 |sts $fna|me]} {..|
|00000330| 09 09 69 66 20 7b 5b 69 | 6e 66 6f 20 65 78 69 73 |..if {[i|nfo exis|
|00000340| 74 73 20 70 6f 73 5d 7d | 20 7b 0d 09 09 09 09 65 |ts pos]}| {.....e|
|00000350| 64 69 74 20 2d 72 20 24 | 66 6e 61 6d 65 0d 09 09 |dit -r $|fname...|
|00000360| 09 7d 20 65 6c 73 65 20 | 7b 0d 09 09 09 09 65 64 |.} else |{.....ed|
|00000370| 69 74 20 24 66 6e 61 6d | 65 0d 09 09 09 7d 0d 09 |it $fnam|e....}..|
|00000380| 09 7d 20 65 6c 73 65 20 | 7b 0d 09 09 09 61 6c 65 |.} else |{....ale|
|00000390| 72 74 6e 6f 74 65 20 22 | 46 69 6c 65 20 5c 22 20 |rtnote "|File \" |
|000003a0| 24 66 6e 61 6d 65 20 5c | 22 20 6e 6f 74 20 66 6f |$fname \|" not fo|
|000003b0| 75 6e 64 2e 22 20 3b 20 | 72 65 74 75 72 6e 0d 09 |und." ; |return..|
|000003c0| 09 7d 0d 09 09 0d 09 09 | 69 66 20 7b 21 5b 69 6e |.}......|if {![in|
|000003d0| 66 6f 20 65 78 69 73 74 | 73 20 70 6f 73 5d 7d 20 |fo exist|s pos]} |
|000003e0| 7b 0d 09 09 09 73 65 74 | 20 70 6f 73 20 5b 6c 69 |{....set| pos [li|
|000003f0| 6e 64 65 78 20 5b 73 65 | 61 72 63 68 20 2d 66 20 |ndex [se|arch -f |
|00000400| 31 20 2d 72 20 31 20 2d | 69 20 30 20 22 5e 70 72 |1 -r 1 -|i 0 "^pr|
|00000410| 6f 63 5c 5b 20 5c 74 5c | 5d 2b 24 72 65 73 20 22 |oc\[ \t\|]+$res "|
|00000420| 20 30 5d 20 30 5d 0d 09 | 09 7d 0d 09 09 64 69 73 | 0] 0]..|.}...dis|
|00000430| 70 6c 61 79 20 24 70 6f | 73 0d 09 7d 0d 7d 0d 0d |play $po|s..}.}..|
|00000440| 70 72 6f 63 20 64 75 6d | 70 48 65 6c 70 4d 61 72 |proc dum|pHelpMar|
|00000450| 6b 73 20 7b 7d 20 7b 0d | 09 73 65 74 20 62 6c 61 |ks {} {.|.set bla|
|00000460| 68 20 22 70 72 6f 63 20 | 68 65 6c 70 44 75 6d 6d |h "proc |helpDumm|
|00000470| 79 20 7b 7d 20 7b 7d 5c | 72 22 0d 09 0d 09 66 6f |y {} {}\|r"....fo|
|00000480| 72 65 61 63 68 20 6d 20 | 5b 67 65 74 4e 61 6d 65 |reach m |[getName|
|00000490| 64 4d 61 72 6b 73 5d 20 | 7b 0d 09 09 61 70 70 65 |dMarks] |{...appe|
|000004a0| 6e 64 20 62 6c 61 68 20 | 22 73 65 74 20 61 75 74 |nd blah |"set aut|
|000004b0| 6f 5f 68 65 6c 70 28 5b | 6c 69 6e 64 65 78 20 24 |o_help([|lindex $|
|000004c0| 6d 20 30 5d 29 20 5c 22 | 5c 24 48 4f 4d 45 3a 48 |m 0]) \"|\$HOME:H|
|000004d0| 65 6c 70 3a 5b 66 69 6c | 65 20 74 61 69 6c 20 5b |elp:[fil|e tail [|
|000004e0| 6c 69 6e 64 65 78 20 24 | 6d 20 31 5d 5d 2f 5b 6c |lindex $|m 1]]/[l|
|000004f0| 69 6e 64 65 78 20 24 6d | 20 33 5d 5c 22 5c 72 22 |index $m| 3]\"\r"|
|00000500| 0d 09 7d 0d 09 6e 65 77 | 0d 09 69 6e 73 65 72 74 |..}..new|..insert|
|00000510| 54 65 78 74 20 24 62 6c | 61 68 0d 7d 0d 0d 23 3d |Text $bl|ah.}..#=|
|00000520| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00000530| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00000540| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00000550| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00000560| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 0d |========|=======.|
|00000570| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000580| 00 00 01 00 00 00 01 4c | 00 00 00 4c 00 00 00 32 |.......L|...L...2|
|00000590| 00 00 00 12 0d 53 74 61 | 72 74 75 70 20 49 74 65 |.....Sta|rtup Ite|
|000005a0| 6d 73 01 00 00 00 00 01 | 00 00 00 4a aa 36 51 31 |ms......|...J.6Q1|
|000005b0| 06 68 65 6c 70 2e 63 b4 | 02 00 02 00 54 45 58 54 |.help.c.|....TEXT|
|000005c0| 41 4c 46 41 00 00 00 00 | 00 00 00 00 00 00 36 c0 |ALFA....|......6.|
|000005d0| 02 00 54 45 58 54 41 4c | 46 41 00 00 00 00 00 00 |..TEXTAL|FA......|
|000005e0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000005f0| 00 00 aa a0 9a 15 00 00 | 04 f0 00 00 01 7e 4d 41 |........|.....~MA|
|00000600| 43 53 31 00 00 34 01 00 | 00 00 00 00 00 18 00 00 |CS1..4..|........|
|00000610| 00 00 03 9c 00 00 08 00 | 00 00 00 0c f8 fd 00 0d |........|........|
|00000620| 00 00 a6 c2 74 40 aa 8c | 0c 59 00 00 00 00 00 00 |....t@..|.Y......|
|00000630| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000640| 03 fe 00 01 00 00 00 00 | 00 00 00 00 03 f4 00 01 |........|........|
|00000650| 03 ff 01 9e 0c f1 00 01 | 00 00 00 00 02 00 00 00 |........|........|
|00000660| 7a 73 79 73 4d 41 43 53 | 31 00 00 34 01 00 00 00 |zsysMACS|1..4....|
|00000670| 00 00 00 18 00 00 00 00 | 03 9c 00 00 08 00 00 00 |........|........|
|00000680| 00 00 00 48 00 09 4d 6f | 6e 61 63 6f 00 00 00 dd |...H..Mo|naco....|
|00000690| c7 d8 00 00 00 00 00 f4 | cc d8 00 03 22 52 03 0d |........|...."R..|
|000006a0| 00 ed b6 d4 00 00 00 04 | 00 04 00 28 00 03 01 ca |........|...(....|
|000006b0| 02 01 00 28 00 03 01 ca | 02 01 aa a0 a1 d3 00 00 |...(....|........|
|000006c0| 00 00 00 00 00 00 00 00 | 00 00 01 00 00 00 01 00 |........|........|
|000006d0| 00 00 01 4c 00 00 00 4c | 00 00 00 32 00 dd c7 d8 |...L...L|...2....|
|000006e0| 0d 3a 00 00 00 1c 00 32 | 00 00 4d 50 53 52 00 00 |.:.....2|..MPSR..|
|000006f0| 00 0a 03 ed ff ff 00 00 | 00 00 00 e1 9d c8 00 00 |........|........|
+--------+-------------------------+-------------------------+--------+--------+